10 CLS
20 A$=STRING$(80,205)
30 PRINT A$
40 PRINT TAB(31)"2029-A.BAS  SPEECH"
50 COLOR 23,0,0
60 PRINT :PRINT :PRINT TAB(38)"IPCO"
70 COLOR 7,0,0
80 PRINT :PRINT :PRINT TAB(29)"INTERNATIONAL PC OWNERS"
90 PRINT :PRINT :PRINT TAB(17)"p.o. box 10426, pittsburgh, pennsylvania 15234"
100 PRINT A$
110 PRINT :PRINT :PRINT :PRINT :PRINT
120 PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
130 A$=INKEY$:IF A$="" THEN 130
140 CLS
1000 REM**  SPEECH - MODIFIED FOR THE IBM PC
1010 REM**  GRAHAM JONES
1020 REM**  CARROLLTON, TEXAS
1030 REM**  DECEMBER, 1982
1040 REM**
1050 REM**
1060 REM SIMP-SIMPLIFIED INTEGRATED MODULAR PROSE
1070 CLS : COLOR 1 : PRINT "SPEECH - COMPUTERIZED SPEECH OR PROPOSAL GENERATOR" : COLOR 7
1080 PRINT : PRINT"PRESS ANY KEY TO START AND STOP FOR PARAGRAPHING"
1090 PRINT : PRINT"       PRESS ANY KEY WHEN READY TO START" : PRINT
1100 IF INKEY$ = "" THEN 1100
1110 CLS : L$="    " : E$=" "
1120 RANDOMIZE (VAL(RIGHT$(TIME$,2)))
1130 DIM A$(10),B$(10),C$(10),D$(10)
1140 FOR I=1 TO 10 : READ A$(I) : NEXT I
1150 FOR I=1 TO 10 : READ B$(I) : NEXT I
1160 FOR I=1 TO 10 : READ C$(I) : NEXT I
1170 FOR I=1 TO 10 : READ D$(I) : NEXT I
1180 I=1+INT(9.99*RND(1))
1190 J=1+INT(9.99*RND(1))
1200 K=1+INT(9.99*RND(1))
1210 L=1+INT(9.99*RND(1))
1220 ON 1+INT(2.99*RND(1)) GOSUB 1240,1250,1260
1230 GOTO 1180
1240 F$=A$(I)+E$+B$(J)+E$+C$(K)+E$+D$(L)+".  " : GOSUB 1580 : RETURN
1250 F$=D$(I)+E$+A$(J)+E$+C$(K)+E$+B$(L)+".  " : GOSUB 1580 : RETURN
1260 F$=B$(I)+E$+A$(J)+E$+C$(K)+E$+D$(L)+".  " : GOSUB 1580 : RETURN
1270 DATA"IN PARTICULAR,","ON THE OTHER HAND,","HOWEVER,","SIMILARLY,"
1280 DATA"AS A RESULTANT IMPLICATION,","IN THIS REGARD,","FOR EXAMPLE,","THUS,"
1290 DATA"BASED ON INTEGRAL SUBSYSTEM CONSIDERATIONS,"
1300 DATA"IN RESPECT TO SPECIFIC LIMITATIONS,","A LARGE PORTION OF THE INTERFACE COORDINATION COMMUNICATIONS"
1310 DATA"A CONSTANT FLOW OF EFFECTIVE INFORMATION"
1320 DATA"THE CHARACTERIZATION OF SPECIFIC CRITERIA"
1330 DATA"THE FULLY INTEGRATED TEST PROGRAM","THE PRODUCT CONFIGURATION BASELINE
1340 DATA"INITIATION OF CRITICAL SUBSYSTEM DEVELOPMENT"
1350 DATA"ANY ASSOCIATED SUPPORTING ELEMENT"
1360 DATA"THE INCORPORATION OF ADDITIONAL MISSION CONSTRAINTS"
1370 DATA"THE INDEPENDENT FUNCTIONAL PRINCIPAL"
1380 DATA"A PRIMARY INTERRELATIONSHIP BETWEEN TECHNOLOGIES"
1390 DATA"MUST UTILIZE AND BE FUNCTIONALLY INTERWOVEN WITH"
1400 DATA"MAXIMIZES THE PROBABILITY OF PROJECT SUCCESS AND MINIMIZES THE COST FOR"
1410 DATA"ADDS EXPLICIT PERFORMANCE LIMITS TO"
1420 DATA"NECESSITATES THAT URGENT CONSIDERATION BE APPLIED TO"
1430 DATA"REQUIRES CONSIDERABLE SYSTEM AND TRADE-OFF ANALYSIS TO ARRIVE AT"
1440 DATA"IS FURTHER COMPOUNDED, WHEN TAKING INTO ACCOUNT"
1450 DATA"PRESENTS EXTREMELY INTERESTING CHALLENGES TO"
1460 DATA"RECOGNIZES THE IMPORTANCE OF OTHER SYSTEMS AND THE NECESSITY FOR"
1470 DATA"EFFECTS A SIGNIFICANT IMPLEMENTATION CONSTRAINT ON"
1480 DATA"ADDS OVERRIDING PERFORMANCE CONSTRAINTS TO"
1490 DATA"THE MICROPROCESSOR-BASED HARDWARE"
1500 DATA"THE ANTICIPATED THIRD GENERATION EQUIPMENT"
1510 DATA"THE TOP-DOWN STRUCTURED DESIGN CONCEPT REALIZATION"
1520 DATA"THE SOFTWARE STRUCTURAL DESIGN, BASED UPON PROPER SYSTEMS ENGINEERING CONCEPTS"
1530 DATA"THE PRELIMINARY QUALIFICATION LIMIT"
1540 DATA"THE PHILOSOPHY OF COMMONALITY AND STANDARDIZATION"
1550 DATA"THE EVOLUTION OF SPECIFICATIONS OVER A GIVEN TIME PERIOD"
1560 DATA"THE GREATER COMPUTATIONAL-WORTHINESS CONCEPT"
1570 DATA"ANY DISCRETE CONFIGURATION MODE","THE TOTAL SYSTEM RATIONALE"
1580 IF INKEY$ <> "" THEN PRINT L$ : L$="   " : GOSUB 1660
1590 IF LEN(L$)+LEN(F$)>255 THEN PRINT L$ : L$="  "
1600 L$=L$+F$
1610 IF LEN(L$)<80 THEN RETURN
1620 FOR I=79 TO 1 STEP-1
1630 IF MID$(L$,I,1)=" "THEN PRINT LEFT$(L$,I) : L$=RIGHT$(L$,LEN(L$)-I) : GOTO 1610
1640 NEXT I
1650 RETURN
1660 IF INKEY$ = "" THEN 1660
1670 PRINT : RETURN
FT$(L$,I) : L$=RIGHT$(L$,LEN(L$)-I) : GOTO 1610
1640 NEXT I